`qProd` <-
function(rule, data)
{
	# qProd
	return (cons(rule, data)*exp(cover(rule, data)-1))
}

